home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / JOYTEST.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  683b  |  38 lines
  1. $INCLUDE "REGNAMES.INC"
  2. SCREEN 12
  3. LINE (0,0)-(640,480),1,BF
  4. CALL Joystick
  5. PSET (x1,y1),7
  6. PSET (x2,y2),14
  7. COLOR 12,1 : PRINT "Ende mit beliebiger Feuertaste von Joystick A"
  8. COLOR 7,1  : PRINT "Joystick A"
  9. COLOR 14,1 : PRINT "Joystick B"
  10. WHILE fire=&HF0
  11.  CALL Joystick
  12.  LINE (ox1,oy1)-(x1,y1),7
  13.  LINE (ox2,oy2)-(x2,y2),14
  14. WEND
  15. SCREEN 0
  16. CLS
  17. PRINT "<< Taste >>"
  18. END
  19.  
  20. SUB Joystick SHARED
  21.  REG %AX,(&H84*256)
  22.  REG %DX,1
  23.  CALL INTERRUPT &H15
  24.  ox1=x1
  25.  oy1=y1
  26.  ox2=x2
  27.  oy2=y2
  28.  x1=REG(%AX)*1.5
  29.  y1=REG(%BX)*1.5+50
  30.  x2=REG(%CX)*1.5
  31.  y2=REG(%DX)*1.5+50
  32.  REG %AX,(&H84*256)
  33.  REG %DX,0
  34.  CALL INTERRUPT &H15
  35.  fire%=REG(%AX)
  36.  fire=peek(varptr(fire%)+0)
  37. END SUB
  38.